home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / DEMOS / HM2_DEMO / BSP / ACC.M next >
Encoding:
Text File  |  1992-07-09  |  742 b   |  37 lines

  1. MODULE Acc;
  2.  
  3.     IMPORT appl, evnt, form, graf, menu;
  4.     IMPORT TOS;
  5.  
  6.     VAR
  7.         ApplId, MenuId: SHORTINT;
  8.         AccName: ARRAY[0..20] OF CHAR;
  9.         Msg: evnt.tMsg;
  10.  
  11. BEGIN
  12.  
  13.     ApplId := appl.init ();
  14.     graf.mouseform (graf.Arrow);
  15.  
  16.     IF TOS.IsApp THEN
  17.         IF form.alert (1, "[0][ Dieses Programm läßt sich | auch als Accessory starten! ][OK]") = 0 THEN END;
  18.     ELSE
  19.         AccName := "  Acc";
  20.         MenuId := menu.register (ApplId, AccName);
  21.         IF MenuId > -1 THEN
  22.             LOOP
  23.                 evnt.mesag (Msg);
  24.                 IF Msg.type = evnt.Open THEN
  25.                     IF form.alert (1, "[0][ Dieses Accessory läßt sich | auch als Programm starten! ][OK]") = 0 THEN END;
  26.                 END;
  27.             END;
  28.         ELSE
  29.             LOOP
  30.                 evnt.timer (10000);
  31.             END;
  32.         END;
  33.     END;
  34.     appl.exit;
  35.  
  36. END Acc.
  37.         
  38.     
  39.